10 REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS INC. - ALL RIGHTS RESERVED
20 IFPEEK(65530)=5THEN(null)15:CP=128
30 EA=174:SA=193:IFPEEK(65530)=164THENCP=16:EA=157:SA=178
40 B=16:Z=256:PRINTCHR$(14)"[147][144]   [195]OPYRIGHT 1988 [195][207][205][208][213][212][197]! [208]UB., [201]NC."
50 PRINTTAB(11)"[193]LL [210]IGHTS [210]ESERVED"
60 PRINT"";:FORI=1TO40:PRINTCHR$(32);:NEXT:PRINTSPC(15)"[145][205]L [195]LONER"
70 INPUT"FILENAME";N$:IFN$=""THENPRINT"[147]":END
80 GOSUB350:IFA=62THENPRINT"FILENAME NOT FOUND ON THIS DISK.":N$="":GOTO70
90 IFATHENPRINT"ERROR: "B$:END
100 PRINT"LOADING "N$;:IFCP=128THEN(null)(N$),B0:GOTO130
110 POKE147,0:IFCP=16THENSYS43115N$,8,1:SYS61516:GOTO130
120 SYS57812N$,8,1:SYS62631
130 PRINT". COMPLETED."
140 L=ASC(A$+CHR$(0)):H=ASC(B$+CHR$(0)):S=L+Z*H:E=PEEK(EA)+Z*PEEK(EA+1)-1
150 PRINTSPC(18)"HEX   DEC":D=S:GOSUB330:D=E:HS$=H$:H$="":GOSUB330
160 PRINT"STARTING ADDRESS: "HS$TAB(23)S
170 PRINT"ENDING ADDRESS:   "H$TAB(23)E
180 PRINT"READY TO COPY THIS FILE NOW (Y/N)?";:GOSUB310:IFK$<>"Y"THEN290
190 PRINT"WANT TO CHANGE THE FILENAME (Y/N)?";:GOSUB310
200 IFK$="Y"THENPRINT"OLD FILENAME: "N$:INPUT"NEW FILENAME";N$
210 PRINT"PRESS <RETURN> FOR YOUR COPY."
220 GETK$:IFK$<>CHR$(13)THEN220
230 GOSUB350:IFA>0ANDA<>62THENPRINT"ERROR: "B$:GOTO180
240 IFA=0THENPRINT"FILENAME: "N$:PRINT"EXISTS ON THIS DISK.":GOTO180
250 PRINT"COPYING "N$;:IFCP=128THEN(null)(N$),B0,P(S)TOP(E+1):GOTO280
260 IFCP=16THENSYS43115N$,8,1:POKESA,L:POKESA+1,H:SYS61860:GOTO280
270 SYS57812N$,8,1:POKESA,L:POKESA+1,H:SYS62957
280 PRINT". COMPLETED.":PRINT"COPY IT AGAIN (Y/N)?";:GOSUB310:IFK$="Y"THEN190
290 PRINT"WANT TO RUN THIS PROGRAM AGAIN (Y/N)?";:GOSUB310:IFK$="Y"THENRUN
300 END
310 GETK$:IFK$<>"Y"ANDK$<>"N"THEN310
320 PRINT""K$:RETURN
330 X=((D/B)-INT(D/B))*B:H$=CHR$(7*ABS(X>9)+X+48)+H$:D=(D-X)/B:IFDTHEN330
340 RETURN
350 OPEN15,8,15,"I0:":OPEN8,8,8,"0:"+N$+",P,R"
360 INPUT#15,A,B$:IFA=0ANDS=ETHENGET#8,A$,B$
370 CLOSE8:CLOSE15:RETURN